Imports System
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
<Serializable()> Public Class EventProcessing
    Implements ICloneable

    Private m_Evfile As String = "EVENTS.INP"
    Private m_Evopt As Evopt = Evopt.DETAIL
    Private m_Selected As Boolean = False
    Public Property Evfile() As String
        Get
            Return Me.m_Evfile
        End Get
        Set(ByVal value As String)
            Me.m_Evfile = value
        End Set
    End Property
    Public Property Evopt() As Evopt
        Get
            Return Me.m_Evopt
        End Get
        Set(ByVal value As Evopt)
            Me.m_Evopt = value
        End Set
    End Property
    Public Property Selected() As Boolean
        Get
            Return Me.m_Selected
        End Get
        Set(ByVal value As Boolean)
            Me.m_Selected = value
        End Set
    End Property
    Public Function OutPutEvent() As String
        Dim strE As String = ""
        If Me.m_Selected = True Then
            If Me.m_Evopt = Evopt.SOCONT Then
                strE = "CO EVENTFIL  " & Me.m_Evfile & "  " & "SOCONT" & vbCrLf
            Else
                strE = "CO EVENTFIL  " & Me.m_Evfile & "  " & "DETAIL" & vbCrLf
            End If
        End If
        Return strE
    End Function

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New EventProcessing
        obj.m_Evfile = Me.m_Evfile
        obj.m_Evopt = Me.m_Evopt
        obj.m_Selected = Me.m_Selected
        Return obj

    End Function
End Class
Public Enum Evopt
    SOCONT
    DETAIL
End Enum
